home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1462.dms / var1462.adf / s / SetLastFax < prev    next >
Text File  |  1994-04-17  |  523b  |  21 lines
  1. ; Afax:s/SetLastFax
  2. ; Script sets local variable lastfax to name of last fax received
  3. ;
  4. if exists FAXREC:.next
  5.   set num `type FAXREC:.next`
  6.   set num `eval $num - 1`
  7.   set lastfax FAXREC:FAX$num
  8.   if not exists $lastfax
  9.     set lastfax FAXREC:FAX0$num
  10.       if not exists $lastfax
  11.         set lastfax FAXREC:FAX00$num
  12.           if not exists $lastfax
  13.             set lastfax FAXREC:FAX000$num
  14.               if not exists $lastfax
  15.                 unset lastfax
  16.               endif
  17.           endif
  18.       endif
  19.   endif
  20. endif
  21.